Awesome Caption
iris %>% group_by(Species) %>% summarize(mean_sepal_length = mean(Sepal.Length)) %>% ungroup() %>% count(Species) %>% mutate(Speies = fct_reorder(Species, mean_sepal_length)) %>% ggplot(aes(Species, mean_sepal_length)) + geom_col() + coord_flip()